perm filename UPGETN.NEW[1,JRA] blob sn#026668 filedate 1973-02-16 generic text, type T, neo UTF8

(DEFPROP UPGETNU 
 (LAMBDA NIL (PROG (Z) (SETQ Z (READ)) (COND ((NUMBERP Z) (READ) (RETURN Z)) (T (RETURN NIL))))) 
EXPR)